home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / dorachat.plp < prev    next >
Text File  |  1993-11-30  |  3KB  |  90 lines
  1. /*    チャット等の自由行動の処理の定義の定義        */
  2. %retMAIN{type({\n});
  3.     loop({type({\n});
  4.     wait(Wtime2,{im({No})}
  5.     ,{,?,@,O},{im({Yes})}
  6.     ,{,?,O},{im({Yes})}
  7.     ,{,H,nn,?,0},{type({0|Q\n});im({Yes})}
  8.     ,{T,S,C,X,Y,G,Z,M,B,E,K,H,?,0,Q},{type({0|0|Q\n});im({Yes})}
  9.     ,{,H,?,Q},{type({Q\n});im({Yes})}
  10.     ,{A,D,M,U,W,},{type({0\n});im({Yes})}
  11.     ,{quit},{type({0\n});im({Yes})}
  12.     ,{,H,?,0},{type({0\n});im({Yes})}
  13.     ,{,H,nn,?,0},{type({0\n});im({Yes})}
  14.     ,{,#,\,?,},{im({No})});
  15.     wait(Wtime2,{im({Yes})}
  16.         ,{,#,\,?,},{im({No})})
  17.             })};
  18. /*    CHAT LOG DOWN START        */
  19. %CHATlog{var DAY1[24];var DAY2[10];
  20.     DAY1:=@daylong;DAY2:=@im(@getchar(DAY1,6,2)|@getchar(DAY1,9,2));
  21.     footnote({読み込みを開始します});
  22.     dispoff(!DEBUG);mkdir2(LOG2|{freelog});dispoff({No});
  23.     receive(LOG2|{freelog\}|NET|DAY2|{.log});
  24.     };
  25. %Wm    {SNDMSG({kaknin_f.snd});footnote({自由行動のログはどうします？});
  26.     case    (CHeck,
  27.         {Yes},
  28.         {select ({記録を終了しますか？},
  29.             Wtime4,,
  30.             { 記録終了 },{stoprec;CHeck:={No}},
  31.             {終了しない},
  32.             )
  33.         },
  34.         {No},
  35.         {select ({記録を開始しますか？},
  36.             Wtime4,,
  37.             { 記録開始 },{CHATlog;CHeck:={Yes}},
  38.             {開始しない},
  39.             )});};
  40. %retDORA{footnote({自由行動の終了処理中です});chat({No});
  41.     case    (CHeck={Yes},
  42.         {Yes},{DOWNSTOP;DOWNSTART},
  43.         {No},{DOWNSTART}
  44.         );
  45.     footnote({自由行動を終了しました});
  46.     retMAIN};
  47. /************ 未削除のメールを全て読む ****************/
  48. %allMAIL{type({M\n});
  49.     wait(Wtime2,,{N,T,R,K,F,L,E,H,nn,?,0},{type({L\n})});
  50.     wait(Wtime2,,{>},{type({\n})})};
  51. %GOCHAT    {
  52.     case    (AM3={Detail},
  53.         {Yes},
  54.         {display({自動実行のため、自由行動は省略します\n})},
  55.         {No},
  56.         {
  57.     footnote({自由行動を開始します});wait(2);
  58.         CHeck:={No};Wm;chat({Yes});
  59.         loop    ({footnote({終了記録MAILｽﾃﾀｽﾁｬｯﾄ}|
  60.              {ﾄｰｸ 端末//  LIB WHO }|
  61.              {＞},{b});
  62.             waitx(300);
  63.             case    (@xtype,
  64.                 {-2},{SNDMSG({jikan_f.snd});im({Yes})},
  65.     {101},{SNDMSG({erande_f.snd});
  66.     select    ({処理を選択して下さい},Wtime4,{im({Yes})},
  67.     {  終    了  },{retDORA;Ex:={Y};im({No})},{  取    消  },{im({Yes})})},
  68.     {201},{SNDMSG({kaknin_f.snd});
  69.     select    ({確認して下さい},Wtime4,{im({Yes})},
  70.     {  終    了  },{retDORA;Ex:={Y};im({No})},{  取    消  },{im({Yes})})},
  71.     {102},{Wm;im({Yes})},
  72.     {202},{Wm;im({Yes})},
  73.     {103},{allMAIL;im({Yes})},    {203},{allMAIL;im({Yes})},
  74.     {104},{type({#\n});im({Yes})},    {204},{type({#\n});im({Yes})},
  75.     {105},{type({C\n});im({Yes})},    {205},{type({C\n});im({Yes})},
  76.     {106},{type({T\n});im({Yes})},    {206},{type({T\n});im({Yes})},
  77.     {107},{type({I\n});im({Yes})},    {207},{type({I\n});im({Yes})},
  78.     {108},{type({//\n});im({Yes})},    {208},{type({//\n});im({Yes})},
  79.     {109},{type({F\n});im({Yes})},    {209},{type({F\n});im({Yes})},
  80.     {110},{type({W\n});im({Yes})},    {210},{type({W\n});im({Yes})},
  81.     {111},{type({＞\n});im({Yes})},    {211},{type({＞\n});im({Yes})},
  82.                 ,{im({Yes})}
  83.                 );
  84.             })
  85.         })
  86.     };
  87. var    Ex [1];
  88. pilotch({"});
  89. loop({ case (Ex<>{Y},{Yes},{GOCHAT;im({Yes})},{No},{im({No})})});
  90. pilotch({$});